home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / progut~1 / gperf.zoo / src / iterator.cc < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-25  |  2.5 KB  |  88 lines
  1. /* Provides an Iterator for keyword characters.
  2.    Copyright (C) 1989 Free Software Foundation, Inc.
  3.    written by Douglas C. Schmidt (schmidt@ics.uci.edu)
  4.  
  5. This file is part of GNU GPERF.
  6.  
  7. GNU GPERF is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 1, or (at your option)
  10. any later version.
  11.  
  12. GNU GPERF is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with GNU GPERF; see the file COPYING.  If not, write to
  19. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20.  
  21. #include <stream.h>
  22. #include <std.h>
  23. #include <ctype.h>
  24. #include "iterator.h"
  25. #include "trace.h"
  26.  
  27. /* Constructor for Iterator. */
  28.  
  29. Iterator::Iterator (char *s, int lo, int hi, int word_end, int bad_val, int key_end)
  30. {
  31.   T (Trace t ("Iterator::Iterator");)
  32.   end         = key_end;
  33.   error_value = bad_val;
  34.   end_word    = word_end;
  35.   str         = s;
  36.   hi_bound    = hi;
  37.   lo_bound    = lo;
  38. }
  39.  
  40. /* Provide an Iterator, returning the ``next'' value from 
  41.    the list of valid values given in the constructor. */
  42.  
  43. int 
  44. Iterator::operator() (void) 
  45. { 
  46.   T (Trace t ("Iterator::operator()");)
  47. /* Variables to record the Iterator's status when handling ranges, e.g., 3-12. */
  48.  
  49.   static int size;              
  50.   static int curr_value;           
  51.   static int upper_bound;
  52.  
  53.   if (size) 
  54.     { 
  55.       if (++curr_value >= upper_bound) 
  56.         size = 0;    
  57.       return curr_value; 
  58.     }
  59.   else 
  60.     {
  61.       while (*str) 
  62.         switch (*str)
  63.           {
  64.           default: return error_value;
  65.           case ',': str++; break;
  66.           case '$': str++; return end_word;
  67.           case '1'..'9':
  68.             for (curr_value = 0; isdigit (*str); str++) 
  69.               curr_value = curr_value * 10 + *str - '0';
  70.  
  71.             if (*str == '-') 
  72.               {
  73.  
  74.                 for (size = 1, upper_bound = 0; 
  75.                      isdigit (*++str); 
  76.                      upper_bound = upper_bound * 10 + *str - '0');
  77.  
  78.                 if (upper_bound <= curr_value || upper_bound > hi_bound) 
  79.                   return error_value;
  80.               }
  81.             return curr_value >= lo_bound && curr_value <= hi_bound 
  82.               ? curr_value : error_value;
  83.           }
  84.  
  85.       return end;
  86.     }
  87. }
  88.